home *** CD-ROM | disk | FTP | other *** search
/ Micromanía: 100 Demos - Disc 2 / Micromania 100 Demos - Disco 2.iso / Project Nomads / nomads_demo_eng.exe / TIMEFUSEACTION.TCL < prev    next >
Encoding:
Text File  |  2002-07-01  |  637 b   |  31 lines
  1. #
  2. #   Zustands-▄berwachungs-Script
  3. #   State Watch Script
  4. #
  5. #   Zeitzuender-Bombe
  6. #
  7. #   created:    15-Jun-2000 Bernd
  8. #               09-Aug-2000 floh    Missile-Aufschlag-Explosion (.iscollided)
  9. #                                16-Jan-2002 peter   Swarm-Missile spezifisches Zeug
  10. #
  11. #   (C) COPYRIGHT 2000 RADONLABS GMBH
  12. #
  13.  
  14. proc timefuseactionwatch_normal {} {
  15.  
  16.     if {[.iscollided] == "true"} {
  17.         .announcestate explode
  18.     } elseif {[.isstatetimeover] == "true"} {
  19.         .announcestate explode
  20.     } 
  21. }
  22.  
  23. proc timefuseactionwatch_explode {} {
  24.  
  25.     if {[.isanimfinished] == "true"} {
  26.         .setremoveable true
  27.     }
  28. }
  29.  
  30.  
  31.